home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2009 February / PCWFEB09.iso / Software / Shareware / IDimager Personal 4.2.0.3 / setup_IDimager_Personal_V4.exe / {app} / web / modules / gadget.psc < prev    next >
Text File  |  2008-06-09  |  728b  |  35 lines
  1.  
  2. %code
  3.  
  4. %include storeddata.inc %/include
  5. %include resulttable.inc %/include
  6.  
  7. var
  8.   AItems: TCatalogItems;
  9.   i: Integer;
  10. begin
  11.   if not FindStoredData ('dsGADGET', AItems, False) then
  12.   begin
  13.     AItems := TCatalogItems.Create (TCatalogItem, '');
  14.     StoreData ('dsGADGET', AItems);
  15.   end;
  16.  
  17.   if Request.Params.Values['type'] ='bookmarked' then
  18.   begin
  19.     AItems.Clear;
  20.     AItems.LastSort := csPhotoDate;
  21.     AItems.LastSortOrder := stDescending;
  22.  
  23.     Catalog.EnumAllBookmarkedItems (AItems);
  24.  
  25.     AItems.Name := toWideString('');
  26.  
  27.     AItems.GUID := Request.Params.Values['GUID'];
  28.  
  29.     AItems.Name := '';
  30.   end;
  31.   
  32.   result := IncludeResultTable (AItems, 'dsGADGET', 1, 12, 65);
  33. end;
  34.  
  35. %/code